From the Authors of KIM-1 BASIC 


Before a computer can perform any useful function, it must be “told” what to do. Unfortunately, at 
this time, computers are not capable of understanding English or any other “human” language. This is 
primarily’ because our languages are rich with ambiguities and implied meanings, The computer must be 
told precise instructions and the exact sequence of operations to be performed in order to accomplish any 
specific task, Therefore, in order to facilitate human communication with a computer, programming 
languages have been developed. 


KIM-1 BASIC* is a programming language both easily understood and simple to use, It serves as an 
excellent “tool” for applications in areas such as business, science and education. With only a few hours of 
using BASIC, you will find that you can already write programs with an ease that few other computer 
languages can duplicate. 


Originally developed at Dartmouth University, BASIC language has found wide acceptance in the com- 
puter field. Although it is one of the simplest computer languages to use, itis very powerful. BASIC uses a 
small set of common English words as its "commands". Designed specifically as an “interactive” language, 
you can give a command such as “PRINT 2+2", and KIM-1 BASIC will immediately reply with "4". IL 
isn't necessary to submit a card deck with your program on it and then wait hours for the results. Instead 
the full power of the KIM-1 is “at your fingertips”. 


Generally, if the computer does not solve a particular problem the way you expected it to, there is a 
“Bug” or error in your program, or else there is an error in the data which the program used to calculate its 
answer. If you encounter any errors in BASIC itself, please let us know and we'll see that it's corrected. 
Write a letter to us containing the following information. 


1) System Configuration 

2) Version of BASIC 

3) A detailed description of the error. Include all pertinent information such as a listing of the program in 
which the error occurred, the data placed into the program and BASIC printout. 


All of the information listed above will be necessary in order to properly evaluate the problem and correct 
it as quickly as possible. We wish to maintain as high a level of quality as possible with all of our KIM-1 
software. 


NOTE: BASIC is available under license or purchase agreements. Copying or otherwise distributing Micro- 
soft software outside the terms of such an agreement may be a violation of copyright laws or the agreement 
itself. 


I any immediate problems with Microsoft software are encountered, feel free to give us a call at 216/725- 
4568/4560 


We hope that you enjoy KIM-1 BASIC, and are successful in using it to solve all of your programming 
needs. 

* KIM-1 isa registered Trademark of MOS TECHNOLOGY 

BASIC is a registered trademark of Dartmouth University 


Distributed by 
Johnson Computer 

P.O. Box 523 
Medina,OH 44256 
216/725-4568/4560 


INTRODUCTION 


We recommend that you try each example jn this section as itis presented. This will enhance your “feel” for BASIC and how itis used. 
(Once your 1/0 device has typed OK “, you are ready to use KIM-1 BASIC. 
NOTE: All commands to KIM-1 BASIC should end with a carriage return. The carriage return tells BASIC that you have finished 
typing the command, If you make a typing error, type @ back-arrow (+), usually shift/O or an underline, to eliminate the last 
character, Repeated use of “'+ ” will eliminate previous characters. An at-sign ( @ ) will eliminate the entire line that you are 
typing. 

Now, try typing in the following: 
PRINT 104 (end with carriage return) 

KIM-1 BASIC will immediately print: 
6 
oK 


The print statement you typed in was executed as soon as you hit the carriage return key. BASIC evaluated the formula after the 
“PRINT” and then typed out its value, in this case 6 
Now try typing in this: 


PRINT 1/2,3°10 


‘means multiply, ” / “ means divide) 
BASIC will print 


‘As you can see, KIM-1 BASIC can do division and multiplication as well as subtraction. Note how a“, (comma) was used in the print 
‘command to print two values instead of just one, The comma divides the 72 character line into 5 columns, each 14 characters wide, The last 
two of the potitions on the line are not used. The result isa“, “causes BASIC to skip 10 the next 14 column field on the terminal, where the 
value 30 was printed, 


Commands such as the “PRINT” statements you have just typed in are called Direct Commands. There is another type of command 
called an Indirect Command, Every Indirect command begins with a Line Number. A Line Number is any integer from 0 to 64000. 


‘Try typing in the following lines: 


10 PRINT 243 
20PRINT 2-3 


A sequence of Indirect Commands is called a “Program”. Instead of executing indirect statements immediately, KIM-1 BASIC saves, 
Indirect Commands in the KIM-1's memory. When you type in RUN , BASIC will first execute the lowest numbered indirect statement that 
has been typed in, then the next highest, etc. for as many as were typed in. 

‘Suppose we type in RUN now: 

RUN 
KIM-1 BASIC will type out: 


5 
a 


ok 


In the example above, we typed in line 10 first and line 20 second, However. it makes no difference in what order you type in indirect 
statements, BASIC always puts them into correct numerical order according to the Line Number. 


It we want a listing of the complete program currently in memory. we type in LIST . Type this in 
ust 
KIM-1 BASIC will reply with 
10 PRINT 2+3, 
20 PRINT 2-3 
OK 


Sometimes it is desirable to delete a line of a program altogether. This is accomplished by typing the Line Number of the line we wish to 
delete, followed only by a carriage return, 


Type in the following 


10 
ust 


KIM-1 BASIC will reply with 


20 PRINT 2:3 
ok 


We have now deleted line 10 from the program. The 
statement we want BASIC to execute, 


Is only one way to get it back. To insert a new line 10, type in 10 followed by the 


‘Type in the following: 


10 PRINT 2°3 
List 


KIM-1 BASIC will reply with 
10 PRINT 2*3 


20 PRINT 23 
0K 


‘There is an easier way to replace line 10 than deleting it and then inserting a new line. You can do this by just typing the new line 10 and 
hitting the carriage return, BASIC throws away the old line 10 and replaces it with the new one. 


‘Type in the following: 


OPRINT 3:3 
ust 


KIM-1 BASIC will reply with 
10 PRINT 3:3 


20 PRINT 2.3 
oK 


It is not recommended that lines be numbered consecutively by increments of one (e.g,, 1, 2,3...). It may become necessary to insert a 
W line between two existing lines. An increment of 10 between line numbers is generally sufficient, 


|f you want to erase the complete program currently stored jn memory, type in “NEW”, If you are finished running one program and are 
about to read in 3 new one, be sure to type in " NEW " first. This should be done in order to prevent 3 mixture of the old and new programs. 


‘Type in the following KIM-1 BASIC will reply with: Now type in: KIM-1 BASIC will reply with: 


NEW oK ust OK 


COMFANION 


COMPANION TO THE SCHAUM’S OUTLINE SERIES’ 
PROGRAMMING WITH BASIC 


SECTION PAGE COMMENT 


12 4 ‘Skip 10 page 8, just aftr example 1.4. Timeshare and KIM BASIC share the interactive capability 
13 5 Flule 1-KIM allows multiple statements per fine f each statement is separated from any previous statement of the same line by a colon () 
23 14 Far KIM, each NUMERIC VARIABLE must consist of Jeter, letter followed by an integer, or a letter fllowed by a letter, Similar con 


tions apply to a STRING VARIABLE with al STRING VARIABLES follomed by a dollar sign (SI. FNS isa specifi letterleter that 


nt a usable string variable name on KIM 

ar 17 ule 3, Ex, 2.9 ~ Raising a number to the 1/2 oF 5 power wl result inthe square root of that number. Similarly, to obtain the cube root 
‘of a number, raise it 10 te 1/3 oF 333333 power. Again, the fourth root of 9 number isthe ame ae that mumbr raised ta the 1/4 or 25 
power 

28 18 Ex, 2.19 —The Hirt, third and fourth statements are not valid with KIM, Multiple asignments ate not valid, NOTE! On KIM, the word LET 
‘soptiona 

29 18 Rule 4 — Also strings containing "" 

an 22 The END statement optional with KIM, If there an END statement it dots not have t0.be at the end of the program but can be 
“embeded in the program, 

213 24 Ex, 228 ~ valid on KIM, Instead uve 


“40 LET X1-1-@+R)/(2"A) REM CALCULATE FIRST ROOT 
50 LET X2-(.8-R1/I2°A) REM CALCULATE SECOND ROOT 
Where the word LET is optional 


32 38 Does not pertain to KIM BASIC, 
a3 39 KIM has the prompting word "OK" rather than the wymbot 
a4 40 To delate characters with KIM type an underscore.) oF back going arrow (+), Type it once and one previous character in delewed, Type it 
twice and two previous characters are deleted, and x0 an, 

41 See this manual for KIM system commands and how to use them, 

42 Does not pertain to KIM 

53 See paragraoh preceding Ex. 4.2 — KIM BASIC does nat ignore trailing blank. 

54 Sew paragraph 2 — KIM BASIC alsa allows GOTO rather than THEN, 

58 See Ex. 4.8 ~ THEN cannot replace GOTO in ON-GOTO statement. 

58 Again, END is optional or KIM and can appear eewhere than the physical end of the program, 

63 Only STEP with KIM, nat BY. 

62. Running variable after NEXT i options! when obvious 

64 KIM loops wil exseute once under conditions 31a}, ib), and 2) 

64 See Ex, 4,15 — Toelfect indenting on KIM start the line with acolon |}: eg. 165° LET 2=x+¥. 

70 See FIG, 4.10 ~ On printout, when I+3 and F=2 the fibonsee: number will not be labeled prime. On tine 140, when I=3, J-2 and F=2. The 


BASIC used by Mr, Gotfried does not execute the 1000 1 all (a8 Ba, 64 Yop! and skips downto live 120. But KIM executes the loop once 
im which cate ine 160 is true and the rogram Branches to line 190, For the program to work properly do the following 
105 7 1="3,°F=" 2. "(PRIMEY™ 


110 FOR 1-4 to N-REM GENERATE FIBONACCI NUMBERS 


6) 81 See uble 5,1 — KIM does nat utilize COT. Use 1/TAN. 
81 See paragraph 1 —_On KIM, negative numbers wih functions that require postive arguments will generate an ervot message and the function 
wil not be analyse, 
Bi —_See.peogram listing. Change line 70 and ade 72 and 74 


To: ? TABI37) TANIX) 
72: IF X)O THEN ? TAB(491:LOG(X);TABI61) £XPIX) 
74; 7: REM PROVIDES CARRIAGE RETURN. 
“This neuded because the first value of X ve not 2 valid argument for the LOG or EXP functions 
52 Bt See first sentence — With KIM, arrays can be labeled leterantager$ or etter ietter . 
56 97 RESTORE, but not RESTORES or RESTORE*, is valid with KIM, 
61 113 Far KIM: Functions must appear in the program betore the line on which they are used. They cannot be grouped at the end af a program 
Dut should be grouped near the beginneng. Alva, 90 string functions, no maltite line functions, no multiple argument functions, and no 
function without an argument (Use 2 place holder variable eg 


10 DEF FNK-C-2"B becomes 
10 DEF FNK(XI=C°2°8 where the argument of FNK «3 variable that does aot appear sn the detiition) 


63 
64 
65 


66 
67 


6.10 


123 


1m 
126 
127 
127 


128 


130 


137 


43 


Does not pertain to KIM BASIC, 
Not applieble 10 KIM 


When using ASC, any letter argument must oper in quotes: 
S0C-ASCI"P"y 

CCHRS «a sirng function which retumns a ane character string which contains the ASCII equwalent of the argument, ASC rakes the list 

character ol 9 string and converts It 10 ASCH decimal valve One of the most common uses of CHRS js to send» special character 10 the 

lier’ terminal. The most aften used of these characters the BEL (ASCII 7). Printing the character wil cause a bel 19 Ng on some ter 

iminals and a "beep" on many CRY's This may be used at a preface 10.an error message, 28 8 Novelty. OF Wt 10 WOKE UO the wae te has 

{alien apiep, (Example: PRINT CHRS(7):). A major use of special character on those CRTs that have cursor Hos ioning ahd other 

‘special functions (such as turning oa 3 hard copy printer. 

[As an example, ry sending 3 farm feed (CHAS(T2I) to your CRT. On most CRT’ this wll usuily cause the screen to erase and the curior 

ta "home or move to the upper lett comer 

Some CRT's give the user the capability Of drawing graphs and curves in 9 special ppint-plottar made This feature may easly be taken 

‘advantage of through use of KIM-1 BASIC’s CHAS function. 


Example 6.13, BASIC line number 70 should read 
TOF LiN=ASCI” ") THEN 110 


Ex. 6.15 uies CHANGE which it not a KIM function. 
Example 6.15, Program line 230 ~ not valid for KIM BASIC. Use 230 FOR I=1 TO LEN(NSI:Lit}-ASCIMIDSINS,1,1)) NEXT 
‘See EX. 6.16 and preceding paragraph — With KIM, an argument is needed for the function AND. 


‘The necessary argument for RIND affects the random number generator and is sometimes called the “vee 
'50 INPUT “PLEASE ENTER RANDOM SEED "AS 
60 X-ANDIRS) 
‘See Ex, 6,2, the program outline, point 2c) ~ A carriage return only in exponse to a question wll end execution of the KIM program, Uve 
space then carnage return 
‘Sew Ex. 6.2, Fig 6.13 ~ Program ses multiline funetion and is therefore not compatitie with KIM BASIC, Uwe the following 
YS DEF FNKIX)=(1+INTI6RNDIRS!))+1+INTI6*RNOWRSI) 
20 INPUT "RANOOM SEED" AS 


90 K=FNK«T) 
180 K=FINKit) 

Line 720 af program should read a indicated by flowchart 
720 T3-T(6,s1°1P2-C16..)) 


‘After Inaving a FOR.NEXT LOOP such a in lines 660-710 the value of the running variable i one more than the speciied final index val, 
eaves the 660:710 FOR-NEXT LOOP as 1-7 and not 6. 
‘Altnough Mr, Gottrid did not use quotations around his response to NAME?, itis necesary to do 40 on KIM becuse of the comma used in 
laat-namme-fist entries. See section 2:9, Page 18, rule wd and Ex. 2.15. In order to avoid having to use Quotation marks change line 240 10 
‘210 INPUT N25.N1S 

Where N25 is the lait name and NS i the fir 
that here one might have been tempted to use FNS tor First Name but 
because it t20 closely resembles the label of user dined function, 


(On a 20K computer system with BK BASIC it may be necessary fo dupenve with the blank lines, the remarks, and perhaps even lines 56O 
‘through 610 in order to have enough room fo run the program, 


‘name or bepinning initias. (See apninsHct'on 2.9, pone 18 regarcs multiple inputs). Nove 
We specific character combination FINS sk not accwptabie by KIM 


Chapter 7 does nor pertain to KIM: 
Chapter 8 does not pertain to KIM: 


CTIONARY 


and'at't of) genoiay ar 


Shamber (3.28) ora sing tera! 


tip dnB ORNS BAUER ETS 


ASCIXS) Raum tne ASCII numeric value of tne 
Tee nul arin 


ATNOX) Gives ne 
(izei'stoa) 


ABSIXI Gives the absolute value of tne expression x 
CASI, ngurne one cnaracter ana none singe cae 
‘inch must we =) Oana t= 258, 


Fs ak variables, resets FOR & GOSUB state 
a 


Continues orogam execution after a controve is 
‘STOP statement executes. You cannot con 
“ater "maditying your’ prowram,. oF 

been run, One of the main Burpotes 


COSIX). Gives tne cosine of the expression X. I inter 
rated ts being in asians 


DATA. Soecties gata, ve4d trom left to sght. Information 


DEF 100 DEF Fraivjav/arc the wer can dating 
fnetions live the sullen functions (SEM, SOM, ABS, ete) 
througm the vie of the DEF statement. "The name ot 
Tinetion In'"#N" fllowea by any legal varaole name, Yor 
EN, FAT, FRAG, FNRZ. Una Satine functions 
ea t3 one line. iunctian may be 
% 


‘Eaecution of ine statement tovlowing the 
ve would cause 2 to be set to 3/8", bul the value OF V 
‘woul be Unchanged. 


DIM, 113, 01M Ala), BC10) _Aliocter sbace for ra 
fia ‘bim R33}, Osi2i22)” “Avrays can nave mere than 
ne cimension. Up ta 285 amennans are awed, de 


ange form Oa 10 (eleven element). 117 ACS)=8 HENS 


EXPIX! G1 
Bower x. (€fse) "The masimum argument that cam be patted 
Soexe without overiiow accuring 87-3365, 


ina STEP war spectieg ta aimed to be one 
{i bontive ana ihe new vitue ot the variable WC Nad! valve 
or the step value Is neyative and the 
ot es Se int wae, thon the at 
Ritement following tne” FOR" statements executed, 
Sinervise, the statement Tollowing’the NEXT statement i 
Srecuied,” Ail FOR iooos execute ine statements between 
{he POR ana the NEXT al eat once, even in cage tke POM 
VA Tol" a18 Pon viiern To 3.aa'sTem sar (a) 
Note that expressions (formulas) may be used forte initial, 
final ana steo values sn a FOR Taos, The values ot the 
Desiont ate comouted only once, betore the Body of the 
POR NET toon 70 1sTeP 
when the statement after the NEXT i executed, the 
\hatever value Chutes the FOR,” sNEXT loop to termin 


15s 9 times 
WineNt'W Error, go not ue nettea FOR. 

ih the same inats variagie, "FOR 100p naiting fe Honted 
‘only by 


REL) OR FRELXS) 270 PRINT PRE) Gives ine num 

iy unused by BASIC. Memory 
STRING somce "4 mot included in the count 
fetcined By FRE. 


GOTO ranches to the statement specifies 


GOSUB Branches to tne soecitieg statement Unt » KE 
1c GOSUN, GOLUB nesting nimitea omy 


IF. .GOTO  avivatent to iF, 
‘GGT must be Followed by a line number 


ATHEN, IF) 10 THEN 5 arancnes to specified 


"Te ast value tyDea shoul be followed OY 
2\mat yequerted in’an INPUT sesement tan wat 
Scrat an they are specified in DATA statements. 


Returns the largest integer Jess than or equal to its 
Soument 2 For eoampes INT C2520, INT (= INT 


— 


A)eoh, INT (2)=-2, INT (L.B}=1 


The foliowne wows rouna X te D cecimat places: 
INT poo syi0 10" 


LEFTSIXS, 1) Gives ine leftmost | characters of tne string 
‘Scorestion x4, Itt (2 or ) 255 an FC enor oer. 


LEN(XS) Gives tne lengin of the string expresion XS 
Enaracters (Oyler). Nomprinfing charscwers ane Blanks are 
Eduinted ae par'of tne Tenain 


LET Assigns a value to variate, "LET i options. 


List List 


LOAD _Loaas ine orosram trom the cauette lage. A NEW 
is tutomatieatiy Sone Cetore the LOAD commana 
tne LOAD wil type Out OMe 


LOGIX) Gives ine nat 


SIM) Gives 4 ae €) Jonata of is ar 
formula LOGIX)/LOGUY}.Examaie, "Tne wave 10 (comm 
man) log oF ? = LG ry/Loaiiey 


1) M108 ‘cated with two. arguments retuins 
Character! tram tha string expression stat 

Boniton 1H TENG men SSO 
enatn) sting. ir (2a'8r)/359, an Fervor occurs 


Mon aes ns mse re 
aeeeetiee 

recuse al 
{EER ES mien alae, 


NEW. Ceietes current program and. 


NEXT Marks ine ena of a FOR 100. I no vaviabie 6 

‘aiven, matches the most fecent FOR loop. "A'singe NEXT 
vba unea to matcn mullite FOR statements. NEXT VW 

Megulvalant so NET VNERT 


NOT IF NOT @3 THEN 4 11 expremion “NOT a3" is 
Ure (pecaute. G2. falta}, then’ Branch tone Note 
Nor iS0' (No? tuestala) 


NULL NULL 3 sets ine number of nul (ASCH 0} 

haracter printed after carage return/ine fous. he mu: 
inted may be sat from O't0°71. This must 

Ravdeopy ‘er 

feturn/ine Tews 


5 torso CoS termina. wren 
sve ecomanena that you wse'3 al sting 
Gr 0\or 1'Yor Telslypen,ana's or 3 for hava copy 30.crs ta 
ininals: “A etting ot wil work with Teletype compatitie 
oar 


ON. GOSUB saentea 
fubrcuine cal (GOSUE) executed Instead “oF 
RETURN tram the GOSUD urancnes to the a 
the ON, -.GOSUB) 


ON, ;SOTO 200 on 1 Gor0 1020.30.40 

GOTO LINE 26 “Ir te, THEN GOTO LINE 30 IF 

SMEN GOTO LINE a0, it b20 orf sttempts to telect's non: 
tna nth ca, 

Eline’ an Mosiow tn Sno" "eBrO.. "ida OM SNORE 


On, ..GOTO" except tat 
‘oro. 


Sc lira lien ene Varnes 
Fora tee are eee 


Peek) ie PeCG aon ony te ot 
Gee nel eeiy mere rsasan corm 
siiicictiat Girone 


POKE 357 POKE J.J The POKE statement stores tne 
Byte speci * 


Shsic, 


Girsor om CAT'S}. The temas aracter powtion 
Shine terminal Boston Sera and te right most iF 


tint Sana'a at orint aoston S6-cr‘more, han 
Before orint ‘ocution So, then spacer are orig unt the 
rage i at tne beginning af the next Le'column Hala unt 
arriage in at eonumn 12, 28, 2 or 36.7} inven 
winaine 


nine teat DATA sate 


‘ram wit cause an OD tout of aatal error 


RESTORE _Autows tn 
‘Atte a’nesrones ine 


Inine Writ GATA statement, an 30'0n a8 ns normal RESO. 


RETURN Causes » subroutine to return to he statement 
SMter the most recently nescuteo GOSUB, 


sen ttn ar amnrioaie he 


Sing i” Caling AND with the same Ks 

‘to Arvo) wt always return the 
‘Ete ranom numer.  )O yeneratet a new ranaom number 
Detwean 9 an 


ote mat (WA) *RNDI1)+A wll gon 
Detneen Ak 


SAVE Saves on cantette tape tne current program in the 
Kw memory. ‘The program sn memory is tt unchaneed 
Move than soe erogram may be stared on cattette using tis 


SGNIX) Gives 1 it X)0, 011 X20 and 1 (0, 


‘SIN(X) Gives tne sine of the axpreston . X is interpret 
‘Salas Being in tadans, Note COS (>) 

Sha'inan’ Pasion 180/01 segrees: 

the sine of X dearees“SIN (X)/37 2956 


S$RCIN ints | space fv lank characters on 
Pay Same eniyina hain Reman. must be wand 


SORUX) Gives tne square root of the argument x. An FC 


STOP causes 2 program to stoo execution ana to ente 
ommang moe. "9000 STOP. hints BREAK IN LINE 
‘3000. fas per this exampte) CONT after a STOP branener 10 
ihe statement following the STOP. 


STRSOX) Gives a string which & the character representa: 
Bh fon Xe Far inntanees TRS 


TABIN) 260 PRINT TABII) Spaces to ine specified print 


attion (column) on the termina. May oe used only in +, Aaaition, String concate sting 
BRIN semen" Bara fe ate cura 90 fe a {ust BO Tena 250 charactors tanith oF an'C3 errr wil 
hentio prongs gone. (must oe =) ana =255° 


Tiprete a, 2 6. = 0, strnscomparison operate. Con 
Gaal asuanes ime ants sifterence se round. ha mae 


VALIXS) _ Returns ne string expression x8 converted toa 
umber.” For instance, VAL ("3.t"J-3., If te first non SEI current wine Being tyEed, ana types a carriage 
ace character at the ‘string nat % piu (+) be minus C) iSunuatly sant. 

Sion. aigit or a decimal port} ten aero wilt be returned, aprons: 7: a 


CARRIAGE RETURN A carriage return must end every 
line types in. Raturnd ovint heaa or ENT cursor tothe fist 
ement. tte WALT st tan etme) on ne tne feed alma erecta 
Syn sgugtoonany enon oF Re ona mu be 


HOC 18 6 Hn 
fstatemens to be executed. 


A colon is uses to 30 
SYMBOLOGY AND SPECIAL KEYS. Cotone may be used in direct an 


[Assions & value to 4 variable, The LET is optional team. 
Negation. Note inat 0-8 subtraction, while -A Is nen wa 


‘Mutioneation ‘Question marta 
fect statements. 10 7", whe ite sl be 
Disision yore a 0 PRINT >. 


ERROR MESSAGES 


Alter an grog occurs, BASIC return Lo lee and types OM. Variable values and the program text remain intact, Bu the progam can not De 
OF OCEUrS In 8 alee statement, no line number is printed. 
Format of error messages 
Diect Statement XX ERROR 
naive XX ERROR IN YYYYY 


sive wan & nan bear ned One a 


ay hat Bean gen the defaut slmansion 10\becauhe a statement ike Alijod ieencountered ana then aterm the Prostar a ON 
‘RU100) ts found 


Function Call error se2s out of range. FC ervore can oct 4) a negative 
apamain EY aes WSyareri" 2 Liatnesatice or taro srsument. a) SaR-neaative 
in, “g) alls to MIOS, LEFTS, RIGHTS, INP, OUT, WAIT, PEEK, PORE, TAB, SPC OF ON: . “GOTO with aM ImBrOD 


West Direct. You cannot use an INPUT or OEFFN statement a 3 airect command 
NF NEXT without FOR. The variable in « NEXT statement corresponds 10 Na previoully executed FOR 


OM Out of Memory. Program 100 large, toe many variabies, too many FOR /o0ph 100 many GOSUB, too complicated an expression or 


QV Overtow. The result of a calculation wat 10 large tobe represented in BASIC's number format. (fan underiow Occurs, 270 Is aien as 


SSN Syntax error. Missing barentness in an exoresion, legal character in alne, Incorrect punctuation, ate. 
RG RETURN witnout GOSUB. A RETURN statement wat ancountere without a orevious GOSUB statement Being executed. 
US Unaetined Statement. An attemot wat made to GOTO. GOSUB or THEN to a statement which does not exis. 


10 Division ay Zero. 


CN Continue error. Attemat 10 continue 4 raga nan none exists, an error occured, OF after a new Hine wa t¥Bed Into ne Brosram, 
LS Lona String. Attemot was mage By use of the concatenation operator to cleste a sting more han 255 characters Long 
ST Sting Temootities. A wriog snorenion ves too Comelex, Brestlt te two or more shorter ones, 


TM. Type Mismatch, The Jett hand sie of an assignment statement was a numeric variable and the right hand side was 2 ting, oF vice versa 


UF Undetingd Function, Reference wat made 102 user oetinea function which mad never been cetine. 


a9 Kos 


Bao suasc air RETURN wiTHoUT GosuE 
RebinieNSionco ARRAY Smoerinen srarement 
Nexrwirour For Staina Too tons 

Sur or ara FonmuLA TOO COMPLEX 
Sur OF MEMORY Tyre wiswnten 
BverrLow GNOEFINED FUNCTION 
SYNTAX 


ASCII CHARACTER CODES 


DECIMAL CHAR. DECIMAL CHAR. DECIMAL CHAR, DECIMAL —CHAR, 
000 NUL 033 ' 065 A 097 a 
001 ‘SOH 034 * 066 8 098 iy 
002 STX 035 * 067 c 099 © 
003, ETX 036 s 068 o 100 a 
004 OT 037 * 069 E 101 e 
005 ENO 038 & 070 F 102 t 
006 ACK 039 071 G 103 9 
007 BEL 040 ( 072 4 104 h 
008 as oa ) 073 1 105 i 
009 HT 042 . 074 4 106 i 
010 LF 043 + 075 K 107 k 
on vT 048 076 L 108 1 
012 FF 045 : 077 M 109 m 
013 cR 046 078 N M0 A 
ova so 047 1 079 ° m ° 
015 si 048 0 080 Pp 112 . 
018 OLE 049 1 081 a 113 q 
017 ocr 050 2 082 R 4 r 
018 oc2 081 3 083 s 115 5 
019 oc3 052 4 084 1b 16 t 
020 ca 053, 5 085 u W7 u 
21 NAK 054 6 086 v 118 v 
022 SYN 055 7 087 w 119 w 
023 ETS 056 8 088 x 120 x 
024 CAN 057 9 089 Y oral y 
025 eM 058 090 z 122 z 
026 sua 059 : 09 ( 123 
027 ESCAPE 060 « 092 \ 124 ' 
028 FS 061 - 093, 1 125 
029 cs 062 ) 094 t 126 ~ 
030 Rs 063 ? 095 - 127 DEL 
031 us 064 e 096 
032 

FF = Form Feed CR = Carriage Return DEL = Rubout 


USAGE NOTES 


INITIALIZATION DIALOG. 
swt resbona 


11-you wish to allocate only part of the memory to BASIC, {YDe tne numberof Bytes of memory you wish Yo allocate in decimal, This might 
Be'dona for instance, if you were using pare of ne memory for's machine language subroutine, 


‘There are 4096 bytes of memory ina SK system, and 8192 Bytes in an 8K system, 
BASIC i then at 


TERMINAL WIDTH? This isto set tne output ine width tor PRINT statements only. Type in he number of enaracters forthe tne wath 
for ne particular terminal or other output aevice you are Using. This may be any number trom 1 40.253, seseaaing on tne termina. WMO 
“aniwer Haven (hea cariage fur i ybea) the line width i et to 72 characters 


memory soace to siore your programs ana variabas. However, fea call the fo ‘Attemoting to ao 40 
Iesult in an FE error, The only way to restore ioa9 BASIC 


‘The ftlowing iste aialog which wit occur 
WANT SIN-COS-TAN-ATN? Answer "Y™ to retain all Your ofthe functions, "N" to delete all four, oF "A 
Now BASIC will type out 

DOOKK™ Is the number of 7 1k. Bos nat Include 


1 wii mam printout the BASIC version ana 
(COPYRIGHT MICROSOFT CO, 
itn tne year ofthe coByriant, ana finally 
‘ox 
‘You wil now be ready £0 Devin using KIMI BASIC 


USING THE CASSETTE INTERFACE 


‘29ram on tape erepare tne caneite just as though 8 dump command where aBOUt ta be AQued 10 the KIM.A monitor. Then 
AToe 1S of Uhh eh asued for all BASIC flex so Only one BASIC program can be saved per tape, ‘AiTer completion Of the “SAN 
‘command contret willbe returned to the KiM-A monitor. Reenter BASIC at ine “HE TSAV" tocation specified for your version usima the" 


SS" is return control to BASIC. Oinerwite paten vacations 0901 HEX 
ie Nex for RBG and MEX and 


Hex for KB} ana doe 


The current version of BASIC doesnot suBeor loading and saving of data Net 


KB. INTEGER VARIABLES. 


Seimei 
Si oo mney moe a arto 


Basic/machine Language interface 


1) at mie memory, The KIM versions of Mrontt 6502 @ASIC and Rar stars at 2000 nex. Contiguous memory above BASIC i used 
1) Below 2000 nex But above 200 nex or 
2) Above the aecimal agaresstyoed into “memory sige" or 
3) Non-cantiguous with the RAM at 2000 nex 


Store the routine into memory. This can be done altner nelore oF after BASIC is oaded. The KIM cassette load, a aotembler,Meying 
ina memary oF BASIC" PORE command may be uted, 

Trvaking tne “USR™ function betare modifying USRLOC wl cauie an “ILLEGAL QUANTITY" error since the original contents of 
USRUGE contains ine adaress of tbe MCLEGAL QUANTITY" erear routine 

The machine language routine must be cates. The “USS function i used tor this BulooKe, A single numeric value must De sven a 
schumand to USB. BASIC wit Gepaten tothe aserese contased in USRLOC. The USR routine may meaty aN of the rears AR 


1) ASH t0 tne routine whose aaarese i a location @ and 9 will cause the Gxt sign integer in (y. A) t0 BF returned asthe result ofthe 


30 Spoie 8256.0 
Reino 


MORE ON PEEK AND POKE. 


PEM ang POME can be used to tore byte Srianted information: When yu iniialize BASIC, answer the MEMORY SIZE? question with 
smgunt af memory invour KIM-I minus the amount at memory you wah to une ay erage tov bye Toteted One 
‘Yau ara now free tuse the memory inthe fo a memo ih your Mint] ay byte savage, 


RULES FOR EVALUATING EXPRESSIONS. 


1) Operations of nianer arecadence are pertormad betore ooeratons of lower precedence. This means the muliplication and aie 
fdmed before additions ane subtractions, "Asan sxamote, 2*10/3 equate 
Formula the let hand one is 


tea explicitly through me wie of parentheses. For instance, 19 4a 10.) 
ina'tnen ivige that by &y we would use (3°3)/8~ ‘stead we nae used 3-3/4, 9e'wouia get 3.78 aa tetlt (sus 3/8) 


1es81005 a8 FOO, I arse Beginning With the ighest arecedence: 


1) FORMULAS ENCLOSED IN PARENTHESIS ARE ALWAYS EVALUATED FIRST; 2) 1: 3) NEGATION: 4) * /; 
RELATIONAL OPERATORS: ‘o 0 ©) Ce )82 7) NOT, BAND: 9) OR 


ve (0). Theratore, (94)+0, ($85), (4 ) 8960, 
ter the Fs not eaunl to 0, That i 10 say, FX THEN... 


inthe range 32768 to +32767. They then 
jauments are not in thn range, an Pe err 


wry 30000, the vesut ofthe ANDi nary 10000 or 16 


1) Use muitiie fovaaaa (Sbyles) associated with eh Nine inthe Brogt4m, Two ofthe 
five oytes Contain ‘ “Frit means Maths Matter Row many diate you have in yout line momar (rina 
{ine mbar, manos 64000), umber of byten. Pu temints a bossible on aline wi eut down an te 


(lee all REM statuments and unnecesary soaces (om your Srosta 
"3:14159'im ne orooram, sna use'B nstaa ot 3.5158 each fine We hese, You nat have ayes” This wil"oae et mses In 

4), A proaram neea not end with an END: 20, an END statement atthe end of a program may be deletes. 

15) Reuse the same variables. you nave a variable T which le uted to Nola a temoorary result In one part of the erogram and You need & 

ueations at hwo aifernt umes uring te encution ofthe oropram, ase tne ture tmoorry saree As osteo raphe me mea 

6) Use GOSUB's to execute sections of program statements that gerform Kenta! actions, 


7) Use the 2010 elements of 


STORAGE ALLOCATION INFORMATION 


Simple tnon-aray) numeric variable like V use 6 bytes: 2 Yor the varabie name, and 4 for the yale. Simole non-aray sting variables alo use 6 
bytes; 2for ie variable name, 2for the engin, and 2 Yor & So 


Array variables use a minimum of 12 bytes. Two bytes are utes for tne variable name, sw forthe size af the aray, two for the number ot 
Simentians and twa tor each dimension alana with four Bytes for each OF the array Siemens, 


 osce for san sn r re weiner “ 2 simple tring va: 
1) Each active FOR. . NEXT loop uses 22 bytes. 

2) Eaeh active GOSUB (one Hat Nas not returned yet) use 6 Bytes 

3) Each parentness encounterea in an expression utes & Bytes anc each temporary result calculated in an expression utes 12 bytes 


Stneruine have to gnore at skip Srer spaces ana REN statement 
OBABLY THE MOST IMPORTANT SPEED WINT BY A FACTOR OF 10. Us stants, I takes more 
{constant 15 Wr Moatng pot reprezenation an Tost Toten me va ofa smole oF “Tris is especiay ime 
“tatement wien a6 2'5 ASOrB-ACCA, wit lace Af sine'S is te 
ited inthe programy. “Later in the program, when BASIE Tinae 2 
re 19 find Ay two entice to fing B ame three aire vo fund Cee, 


CONVERTING BASIC PROGRAMS NOT WRITTEN FOR THE KIM.1 


Towan implementations of BASIC on atterent computers ae in many ways nia, there are some incompatibities which you vould waten 


‘Some BASICH vie ™{ ana" } "to denote aray subse 


orm Ott Asti} secare.a sng mais of J ee 
Tenath 1. Convert DIM statements of ths fybe to eauivalent Ones in KIN BASIC! DIM ABC 
IM BASIC uses +" for string concatenation ot "oF ™& 
Kim GASIC utes LEFTS, RIGHTS ane MIDS to take wbstrinas of sting. Other BASICS vie AB) Lo accet se In charactor of the 
fining Ate ane uonring oF AS from anavacter aonton Ito eharscter J"SSmeur ne fonowa! 
Lo new 
asi) MIDSIAS.!.1) 
Asi MIDSIAS.1441) 
“Tous assumes thatthe rearence fo a substring of AS is in an expression oF on the ight de of an apsanment. 1 the 
‘heating expression hea to replace enaroctrs in AB, convert as Yollows 
ew 
AS“LEFTSIAS.I1}+XS+MIDSIAS.161) 
AS LEFTSIAS | 11+XS+MIOS(AS 161), 


Multioi aslgnments, Some BASICS allow statements of the form: $00 LET 8=C=0. Thi 


In KIM: BASIC thit nas an entirely differant effect, All the 


500 c-018-¢ 
Some BASICK use “/* instead of "<a delimit multion statements oer fine. Change the /s "tos “inthe program, 

Paver tapes punened by other BASICE may Nave no nulls at the end OF each line, instedd Of the three Oe Tine recommended for use With 
kina Basie. 

To et around this, try to se BASIC types a cariane 
‘return at the and af the fine: "Walt a second, ana then continue feeding inthe tape. 


‘en, you nave finished reading inthe saper 08 ot tne program, be sure to Bunch a new tape in KIM-1 GASIC'S format. This wil save you 


Programs wen use the MAT functions available in some BASICS will have to be re-written using FOR, . .NEXT loops to pertorm the 


DERIVED FUNCTIONS 


‘The following functions, while not intrinsic to KIM-1 BASIC, can be calculated using the existing BASIC functions. 


FUNCTION FUNCTION EXPRESSED IN TERMS OF BASIC FUNCTIONS 


SECANT SEC(X) = 1/COS(X) 
COSECANT csC(x) = 1/SIN(OX) 
COTANGENT COT(X) = 1/TANIX) 
INVERSE SINE ARCSIN(X) = ATN(X/SQR(-X*X+1) } 


INVERSE COTANGENT ARCCOT(X) = -ATN(X}+1.5708 
HYPERBOLIC SINE SINHIX) = (EXP(X)-EXP(-X) )/2 
HYPERBOLIC COSINE COSH(X) = (EXP(X)+EXPL-X) 1/2 
HYPERBOLIC TANGENT TANH(X) = = EXP (-X)/(EXP(X}*EXP-X) )*241 
HYPERBOLIC SECANT SECH(X) = 2/EXP(X)+EXP(-X) ) 
HYPERBOLIC COSECANT CSCH(X) = 2 EXP(X)-EXPI-X) ) 
HYPERBOLIC COTANGENT COTH(X) = EXPL-X)/(EXP(X)-EXPLX) )*2+1 
INVERSE HYPERBOLIC 
SINE ARGSINH(X) = LOG(X*SQRIX"X+1)) 
INVERSE HYPERBOLIC 
COSINE ARGCOSH(X) = LOG(X+SQR(X"X:1) } 
INVERSE HYPERBOLIC 
TANGENT ARGTANH(X) = LOG ( (1#X1/(1-X) 1/2 
INVERSE HYPERBOLIC . 
SECANT ARGSECH(X} = LOG( (SOR-X*X+1)+1)/%) 
INVERSE HYPERBOLIC 
COSECANT ARGSCH (X) = LOGI (SGN(X)*SQR(X"X+1)41)/X) 
INVERSE HYPERBOLIC 
COTANGENT ARGCOTH(X) = LOG/ (X#1)/(X-1) 1/2 


IMPORTANT LOCATIONS (HEX) KB-9P 38-9 
LOWEST LOCATION 2000 2000 
HIGHEST LOCATION SEEF 4260 
INIT (START) 3E91 4065 
GLOAD (RETURN FROM GOOD LOAD) 2278 009 
BDLOAD (RETURN FROM BAD LOAD-ALSO PATCH LOCATIONS 1 § 2) 2455 2523 
RETSAV (RETURN FROM SAVE) 26A2 275F 
USRLOC (FOR USR ADDRESS) 0008 2040 
AYINT (PASS ARGUMENT OF USR FUNCTION TO THE ZERO PAGE 

ADDRESS. REFER TO ZERO PAGE LISTING) 2F04 2FC2 
GIVAYF (RETURN A,Y FROM MACHINE CODE USR ROUTINE) 3007 3195 
ISCNTC (CHECK FOR CONTROL/C) 2610 260A 
LOCATION OF CALL TO KIM- INPUT ROUTINE 238¢ 2456 
LOCATION OF CALL TO KIM-1 OUTPUT ROUTINE 2991 2851 


APPLICATION NOTE: Microsoft has advised us that the value of .1 cannot be represented 

t en 
exactly in Binary floating point. Programs magnify this inaccuracy until it shevs up 
on print-out. This can be handled by: 


(1) Alvays use integers which are exact and then scale. As an example, 
14 X 1.23 would be (14*123) / 10. 


(2) Use tests such as ABS(X-2) < 1E-6 or STRS(X)=STRS(2) 

(3) Round out to the number of digits you want before printing. 
The way to save data using Microsoft KIM BASIC is to: 

(1) Have it in DATA statements and use CSAVE. 

(2) Weite your own USR function to perform this. 


Microsoft will provide access to cassette data in a future release if there is enough 
general interest. Drop us a card if you are interested. 


If BASIC is waiting for an input and you type a carriage return, you will exit your 
Program and return to the Immediate Mode of BASIC. This is intentional. You can return 
to the program using CONT. If you want to prevent accidentally leaving the program 

in this manner, you can use POKE or the KIM Monitor to change the A5 to an A9 at 
Jocation 10920 decimal (2AA8 HEX) for the RAM version. Now,however, you will only be 
able to exit BASIC by using CONTROL C, encountering a STOP in the program, or if the 
Program comes to an END, 


SOFTWARE: Three KIN-1 routines have been written by Ralph Bugg, a user, which are 
ble with the KIN-1 9 digit BASIC. These routines are as follows 


BUGGWARE #1. A video driver making the Kent-Moore video board Catalog 60083 
(32 X 16) compatible with KIM BASIC. 


A routine for operating KIM BASIC from a parallel input keyboard 
$4.00 postage paid 


A routine for output to a Baudot (5 level)Teletype 
$4.00 postage paid 


BUGGWARE #2. A video driver making the Kent-Moore video board catalog 60117 
(64 X 16) 


From time to time we will make a mailing of miscellaneous information gathered on the 
KIM BASIC and related items. If you have any tips you would like to share with others, 
please send them in. At this point, there is no schedule or promise for the next issue 
but it will be sent out when enough information is accumulated to make it worthwhile, 


HYPERTAPE TIP: For those of you who are unaware of Hypertape, this is a program 
written by Jim Butterfield of Toronto, Canada and published in Eric Rehnke's KIN-1 

User Notes, Volume 1, Issue 2. Hypertape allows you to record on cassette in 1/6 the time 
of standard KIM dump routine, For parallel input Ralph Bugg suggests you place 

Hypertape at 0300 and enter the following changes: 


KB-9P KB-9 
O35F 035F = 60 
269F 275¢_ 20-00-03 
Per Chuck Kingston, this may be done using the KIM serial port with: 
035E 4: C203 03s (58 


@3c2 20 8C IE 03c6 60 


Following is information for reading a line: 
(1) The routine to input a line from the terminal is located at: 


2420-2455 (starts at 2426) 
2356-2398 (start at 235C) 


(2) The compare for a (line delete) is at: 


(3) The compare for a (character delete) is at location: 


+243F 
+2375 


KBOP. 


(4) Note that codes < 20 HEX and > 70 HEX have already been ignored by the 
compare above these. 


If you are having any problems with your KIM-1 BASIC by Microsoft, please write 
tous, If at all possible, include a print-out illustrating your difficulty. 
Document your print-out with handwritten notes indicating the difficulty. 


KIN-1 digit BASIC by Microsoft is also available in a version adapted for the TIM 
monitor manufactured by MOS Technology. TIM stands for Teletype Input Monitor and is 
often used by people developing a CPU of their own design. The TIM is part 
6530-004 and sells for $14,15. The manual for application of the TIM sells for 
$4.95. Both items are available from Johnson Computer. 


You may purchase useage rights or source code listings from Microsoft as follows: 


IN-HOUSE OBJECT CODE RIGHTS for use on a specific project are available for $750.00. 
This would be appropriate for a user who would otherwise have to purchase several 
copies of BASIC authorized for use on a specific KIM unit. As an example, using 
KIM in an in-house test stand and then building ten more test stands, each using 

a KIM. 


IN-HOUSE SOURCE RIGHTS to all versions of 6502 BASIC is available to customers 
Who would like to customize the program for each KIM-1, The price is $3,000.00 
for the in-house for each use of the source code, 


OFM SOURCE CODE RIGHTS are available for making Microsoft's 6502 BASIC a part 
of a product being manufactured for resale. The price to an OEM for source code 
rights is $3,000.00 plus $35.00 for each copy up to 1,000 copies ($35,000.00) 
after which they then own the rights. This can be purchased outright for 
$21,000.00. An OEM account receives the source listing and may sell the object 
code as a part of his product but the source code may not be sold, distributed, 
given out or leave the account facility. 


QEM OBJECT CODE RIGHTS is priced at $1000.00 plus $35.00 per copy up to 1000 
copies. Source code available at a later date for the 2000 difference. 


JOHNSON 


COMPUTER 


Implementation of a CONTROL C is difficult due to the nature of the KIM 
I/O port, Because only a bit at a time comes into the port, it is 
impossible to handle a character typed during computation, By the time 
BASIC tries to detect a CONTROL C character, several bits of data may 
already have passed through the port. 


Exiting to the monitor and re-entering at the WARM START location will 
stop the program, however, the "CONT" command will not work properly. In 
fact, exiting to monitor can leave BASIC in a state where all variable 
accesses hang the machine until "RUN", "NEW", or "CLEAR" is typed 

or a program line 1s changed. However, this is very unlikely. 


Changing to a parallel input keyboard eliminates the above problem. 
The CONTROL 0 facility can be handled by POKEing or using the KIM 


monitor to set the CONTROL 0 flag location of 0017 in KB-9P, or 0014 in KB-9, 
to FF for no output or to 00 for output. 


P.O, BOK 523 MEDINA, OHIO 44256 
(216) 725-4560 


INVERSE COSINE ARCCOSIX) ~ ATNIX/SQR!-X"X+1) 141.5708 


INVERSE SECANT ARCSEC(X) = ATN(SQR(X"X 1) }4(SGN(X)-1) *1.5708 
INVERSE COSECANT ARCCSCIX} = ATN(T/SORIX*X 1) )4¢SGN(X}.1)°1 5708 
INVERSE COTANGENT ARCCOT(X) ~ ATN(X)+1 5708 
HYPERBOLIC SINE SINH(X) = (EXP(X) EXPL-X) 1/2 
HYPERBOLIC COSINE COSH(X) © (EXPIX)HEXPEX! 1/2 
HYPERBOLIC TANGENT TANH(X) = EXP (20/(EXP(X)+EXPUX) )*247 
HYPEREOLIC SECANT SECH(X) ~ 2)(EXP(X) +EXP( X) ) 
HYPERBOLIC COSECANT CSCHIX) 2//EXP(X) EXPY X) ) 
HYPERBOLIC COTANGENT COTHIX) = EXPL XIEXP(X) EXPL X) 17241 
INVERSE HYPERBOLIC 

SINE ARGSINHIX) = LOGIX*SORIX*X+1)) 
INVERSE HYPERSOLIC 

COSINE ARGCOSH(X) - LOG(X+SOR(X"X-1) ) 
INVERSE HYPERBOLIC 

TANGENT ARGTANH(X) LOG ( (19xI/(1.X) 1/2 
INVERSE HYPERBOLIC 

SECANT ARGSECHIX} = LOG( (SQR(-X*X+1)#1)/X) 
INVERSE HYPERAOLIC 

COSECANT ARGSCH(X) - LOGI (SGN\XI"SOR(X*X+1)41)/%) 
INVERSE HYPERBOLIC 

COTANGENT ARGCOTHIX) = LOG (Xs 1)/0% 1) 9/2 


SS Se eee 


i} IMPORTANT LOCATIONS (HEX) kpop 

{ (PRON) 

| LOWEST LOCATION 2000 2000 

t HIGHEST LOCATION 3FFF 4260 
INIT (START) 3E91 4065 
GLOAD (RETURN FROM GOOD LOAD) 2278 0000 
BDLOAD (RETURN FROM BAD LOAD-ALSO PATCH LOCATIONS 1 & 2) 2455 2523 
RETSAV (RETURN FROM SAVE) 26A2 275F 

| USRLOC (FOR USR ADDRESS) 0008 2040 

i — 

i 

| AYINT (PASS ARGUMENT OF USR FUNCTION TO THE ZERO PAGE ADDRESS. 204 2FC2 

' See Zero Page Listing) 

| GIVAYF (RETURN A,Y FROM MACHINE CODE USR ROUTINE) 3007 3195 

i ISCNTC (CHECK FOR CONTROL/C) 2610 26DA 

| LOCATION OF CALL TO KIM-1 INPUT ROUTINE 238¢ 2456 


LOCATION OF CALL TO KIM-1 OUTPUT ROUTINE 2991 2A51 


Page 0 is configured as follows: NOTICE: The PROM version initializes 
3E91. It does not provide SIN, COS, 
TAN, ATN, etc. Memory used is $2000 
to $3FFF. Workspace begins at $4000. 


KB-9 uses all locaticns 0-DC and FF 


PROM used all locations O-DF and FF 


PROM "RAN. 

KB-9P xB-9 DESCRIPTION 

2278 ) JMP to WARM START BASIC. 

6 6 Address of routine to transfer USR argument to y, (AYINT). 
8 8 Address of routine to transfer (y,A) to result of USR 

function (GIVAYF). 

13 4 FLAG set to FF if output is suppressed (CONTROL 0 mode). 
Set to 0 otherwise. 

14 1s Number of NULLS to print. 

4s 16 Current terminal colunn (equal to POS (0). 

16 7 Line Length. 

7 18 Position beyond which there are no more conma fields, 
Equal to 14*(INT (line Length/14)-1), 

1A 1B Input buffer .72 decinal byte: 

76 78 Pointer to start of progran. 

78 TA Pointer to start of simple variable tabl 

7A 7 Pointer to start of array table. 

7 TE First location unused by array table. 

TE 80 Lowest location used by string data. 

82 84 Highest memory location in use by BASIC. 

84 86 Current line number. 

re) AE Floating accumulator 

Ba BL Value of argument in AYINT 

Bg cD Routine to read a character from current program position. 

DL D8 Current random number. 

Ds vb First unused page 0 location. 

FF FF Used by STR$ function. 
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JOHNSON 


COMPUTER 
aa 


NOTICE 


For perfect load and dump operations using a cassette the following should be 
observed: 


1, The small magnetic bar located on the polished surface of the recording head 
used in the tape recorder should be aligned to the magnetic information recorded 
on the tape. Typically the recording head is secured in place with two screws. 
One screw is spring loaded and allows the recording head to be shifted slightly 
for alignment with the information stored on the tape. It is possible the 
recording head was not aligned properly at the factory or the head has been 
jarred to an improper setting by rough handling of the recorder itself. 

If a production type tape has been recorded properly it can be used to find the 
proper setting of your recording head. While playing the tape the spring loaded 
recording head adjustment screw can he varied to obtain maximum brilliance 
(sharpness) of tone. Additionally, proper adjustment will allow programs to be 
stored on either side (track) of the cassette with no interference between the two, 
Recording head misalignment is one of the chief causes of improper loading 

from the cassette in the KIM-1 system. 

If, after verifying proper recording head alighment, you still have problens, 
check the setting of VR-1 (the SK potentiometer) located to the left of the 
keyboard. Connect a jumber from terminal P on the application connector to 
terminal L on the application connector. Next, connect a 0C volt meter between 
terminal X on the expansion connector and ground. 

Then, referring to the KIM-1 User's manual Page E2 adjust the potentiometer to 
get a reading of +1.4V (no less than .7V and no more than 3.0V). This is a 
very touchy adjustment. 

If you have properly aligned your recorder head and the KIM-1 is properly 
calibrated you should have no problem dumping to your recorder and loading 

from your recorder. Shouldlyou still have a problem you might check to be sure 
that the tape you are trying to load in your KIM-1 was recorded on a properly 
adjusted recorder head. If this was not done, the program can be saved by 
readjusting your recorder head in the wrong position so that it properly lines 
up with the bad-cassette, loading to KIM and then readjust your head to its 
proper setting and re-recording the program from your KIM to a clean cassette. 


P.O. BOX S23 MEDINA, OHIO 44256 


Your KIN-1 Basic by Microsoft cassette has been recorded using HYPERTAPE de- 
veloped by Jim Butterfield of Toronto, Canada and published in KIM-1 Users 
Notes, Issue 2, Pages 12, 13 and 14. ‘This program enables you to record and 
play back in 1/6th of the time required using the standard KIM-1 tape routines. 
Playing back into your KIM-] from a HYPERTAPE recording follows the same pro~ 
cedure as the standard KIM-1 tape loading routine using 1873 and GO. HYPERTAPE 
is more sensitive to the adjustment of the tape recorder head. If you do not 
get a load on the first try then there is a strong possibility that your tape 
Tecorder head has not been aligned exactly the same as ours. You can "tune 
in to the tape by using some delightful programs published in KIM-1 Users 
lotes. 


1, Before changing the setting of your tape recorder head take one of your own 
cassettes and generate a SYNC STREAM on your own recorder using the program 
from Page 11 of KIH-I Users Notes, Volume 1, Issue 2. 


2. Now, load the VUTAPE into your KIM-1. VUTAPE was written by Jim 
Butterfield of Toronto, Canada and published in KIM-1 Users Notes, Issue 2, 
Page 12. 


3, After loading VUTAPE and 0000, press GO. The last character in your dis- 
play will come on in a randam fashion. Now go to your KIM BASIC cassette 
and locate the 30 second SYNC STREAM (you can tell it by the steady sound) 
which we have recorded immediately following the end of the KIM-1 BASIC. 
This is at about 3 minutes and 15 seconds into the tape. Adjust your 
volume control to about 2. While playing this sync stream into your 
KIM-1, adjust your tape recorder head set screw so that the sync pulses 
“lock in" on the right end of disp’ This adjustment should be very 
close to the original ediusceene of your head. Once locked in, lower the 
volume control to about | or even .5 and adjust again. 


4. Next you might want to check your phase lock loop (VR-1) adjustment on 
your KIM-1, This is easiest done by using the PLL SET program by Louis 
Edwards, Jr. of Trenton, N.J. and published on Page 3 of Kil Users Notes 
Issue 5. Now go to the beginning of the KIM-1 BASIC cassette, set up your 
load routine. Enter Ident O] at 17F9. Be sure OOF! is loaded with 00. 

Go to 1873, set volume contro] at about 8 and GO. You should load in three 
minutes. Now refer to the enclosed documentation for BASIC operating 
instructions, 


KIM-1 User Notes is published by Erick Rehnke, 109 Center Street, West Norriton, 
PA. 19401. Subscriptions are 6 issues for $5.00 in U.S.A. and Canada, $10.00 
for 6 issues elsewhere. Johnson Computer will accept subscriptions on purchase 
orders. Individuals make checks payable to "KIM-1 Users Notes". Also, “The 
First Book of KIM", by ORB (Ocker, Rehnke & Butterfield) has reprinted most 
jmportant programs published in issues 1 through 5 and also includes excellent 
text on KIM and the 6502. Price is $9.50 available through Johnson Computer, 
P.O. Box 523, Medina, Ohio 44256. 


SYNC STREAM - 0000 AO BF 8C 43 17 A9 16 20 7A 19 DO FO 


VUTAPE - 0000 D8 A9 7F 8D 41 17 A9 13 85 EO 8D 42 17 20 41 1A 46 F9 05 F9 85 FO 
0016 8D 40 17 C9 16 DO E9 20 24 1A C9 2A DO FS AQ 00 8D E9 17 20 24 1A 
002 20 00 1A DO DS A6 EO E8 E8 EO 15 DO 02 A2 09 86 EO SE 42 17 AA 
0041 BD E7 1F 8D 40 17 00 OB 

PLL SET - 1780 A9 07 8D 42 17 A9 01 80 Ol 17 85 El AS 7F 8D 41 17 A2 09 AO 07 
1795 2C 42 17 30 02 AO 38 SC 40 17 SE 42 17 2C 47 17 10 FB EG E2 30 04 
17AB AQ 91 DO 03 A9 93 EA 8D 44 17 AS Ol 45 E] 85 El 8D 00 17 EB ES 
17C0 EO 15 00 CF FO CB 


JOHNSON 


COMPUTER 


BULLETIN 
TO: All KIM BASIC users 


To more specifically describe the start-up procedure for loading the KIM BASIC fron 
cassette, we are offering the following: 


(1) Have at least 16K of memory added on to your KIM-1, beginning at address 2000 HPX, 


(2) We suggest you make a memory test at this point to be sure you have no bad nenory 
bits. 


(3) If you are loading via the KIM-1 hexadecinal keyboard, enter the following 

* AD OOFL DA oo 

AD 17F9 DA Ol 

+ 00 + IC + 0 + 1c + WO + 1C 

AD 1873 G 
* Start tape recorder with volume set at approximately 8% and treble or full 
* After three minutes, you should get a display of 0000 
* Flip your switch to transfer to your terminal. 


* Press "RUBOUT" key on your terminal. 


* On your terminal, type in "4065" (starting address for KIM 9 digit BASIC) 
followed by the space har. 


* Type "G", 

* KIM BASIC should come up asking memory size. 

* Tap the "RETURN" hey. However, if you want to set aside memory at the high 
end, answer with the decimal value of the highest memory location KIM BASIC 
can use. KIM BASIC memory must be contiguous from 2000 HEX up. 

* KIM BASIC should now ask for terminal width. 

* Tap the "RETURN" key if you have a 72 character terminal width. If you have 


less than 72 characters across, or if you have more than 72 characters and 
plan on using the entire terminal width, type in actual terminal width. 


(Cont. on Page 2) 


P.O. BOK S23 MEDINA, OHIO 44256 
(216) 725-4560 


* BASIC will ask if you want SINE, COSINE, etc. We suggest you always answer 
“y", for YES. 


You should now be in BASIC. 


(4) L€ you intend to transfer to the keyboard for the entire start-up, use the 
following procedure: 


* Press "RS" on the KIM-1 hexadecimal keyboard. 
* Press "RUBOUT on your terminal keyboard. 
* Type in the following on your terminal keybuard 
OOF! (space bar) 00 . 
17F9 (space bar) 01 . 
DO IC 6 100) we AG 5. 00.4; IG! « 
1873 (space bar) 


* At this point, turn on the cassette. After a successful load, the screen 
will display: 


KIM 
9000 


* type starting address and routine as follows: 
4065 (space bar) G 


* Answer questions on memory size, terminal width and trancendental functions 
as on page one. 


You are now in BASIC. 


Saving prograns on cassette is accomplished as follows: 


(1) Plan to save only one program per cassette. That program should be in your menory 
when you are ready to record. Use she following procedure: 


* On your terminal keyboard, type "SAVE". 


* Start your tape recorder. When leader has passed, type 


* A successful SAVE will be indicated by the following display on your screen: 


KIM 
0000 


(2) Since 0000 is WARM START, get back to BASIC simply by typing "G" 


In order to load a program from cassette back into KIM, use the following procedure 


* Enter BASIC as above and then type "LOAD". 


(Cont. on Page 3) 


